Sub GetCountIncident

'Объект для вывода в окно сообщений
Set Out = Zulu.OpenOutputChannel("Сообщения")

'Очищаем окно сообщений
Out.Clear

'Получаем активный слой текущей карты
Set L = Zulu.ActiveMapDoc.Layers.Active

'Получаем список объектов для проверки, интересую объекты с типом 6
Set uzel = L.ElementKeys.SelectByType(6,0)

	'в цикле, проходим по всем объектам для проверки
	For i=1 to UZEL.Count
        
	'Определяем количество входов и ыходов
		InzIN = L.GetIncidentElements (uzel.Item(i), 1).Count  
		InzOUT = L.GetIncidentElements (uzel.Item(i), 2).Count 
         
	'выводим количество входов и выходов в окно сообщений    
		Out.Put "ID="& uzel.Item(i) & chr(10) & "   Входов = " & InzIN & chr(10) &"   Выходов = "& InzOUT & chr(10) 
		 
	next

MsgBox "готово"
End sub